home *** CD-ROM | disk | FTP | other *** search
/ Technotools / Technotools (Chestnut CD-ROM)(1993).ISO / lang_pas / mkscren2 / screenxx.inc < prev    next >
Text File  |  1987-12-08  |  673b  |  14 lines

  1. gotoxy( 1, 4);write('Section Header 1');
  2. draw_field( 7, 5,xf[ 1],yf[ 1],'Label1:',Var1,0, 4);
  3. draw_field(26, 5,xf[ 2],yf[ 2],'Label2:',Var2,0,11);
  4. draw_field(53, 5,xf[ 3],yf[ 3],'Label3:',Var3,0,12);
  5. gotoxy( 1, 7);write('Section Header 1');
  6. draw_field( 7, 8,xf[ 4],yf[ 4],'Label1:',Var4,0, 4);
  7. draw_field(26, 8,xf[ 5],yf[ 5],'Label2:',FieldTag1,0,11);
  8. draw_field(53, 8,xf[ 6],yf[ 6],'Label3:',FieldTag2,0,12);
  9. gotoxy( 1,11);write('Section Header 2');
  10. draw_field(22,13,xf[ 7],yf[ 7],'Aaaa:',FieldTag3,0, 5);
  11. draw_field(34,13,xf[ 8],yf[ 8],'Bbbb:',AAAA,0, 5);
  12. draw_field(46,13,xf[ 9],yf[ 9],'Cccc:',CCCC,0, 5);
  13. draw_field( 1,15,xf[10],yf[10],'xxxx:',Name,0,33);
  14.